home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’87 / Source ƒ.sit / Source ƒ / modula 2 ƒ / Draw3D (M2) / Draw3D.MOD next >
MacBinary  |  1985-01-02  |  3.0 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Draw3D.MOD

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert SoundTracker Module (music/soundTracker) ext Supported
66% dexvert Chip Tracker Module (music/chipTracker) ext Supported
66% dexvert Protracker Module (music/mod) ext Supported
66% dexvert Octalyser Module (music/octalyser) ext Supported
66% dexvert Star Tracker/StarTrekker Module (music/starTracker) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert PollyTracker Module (music/pollyTracker) ext Unsupported
1% dexvert Black Viper packed music (music/blackViperPackedMusic) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Tue Jan 1 20:42:42 1985, modified Tue Jan 1 20:42:42 1985, creator Macintosh Edit, type ASCII, 2354 bytes "Draw3D.MOD" , at 0x9b2 490 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 44 72 61 77 33 44 | 2e 4d 4f 44 00 00 00 00 |..Draw3D|.MOD....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 09 32 00 | 00 01 ea 98 5e 64 92 98 |......2.|....^d..|
|00000060| 5e 64 92 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |^d......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 db d9 00 00 |........|........|
|00000080| 4d 4f 44 55 4c 45 20 44 | 72 61 77 33 44 3b 0d 0d |MODULE D|raw3D;..|
|00000090| 28 2a 0d 20 20 44 72 61 | 77 20 61 6e 64 20 72 6f |(*.  Dra|w and ro|
|000000a0| 74 61 74 65 20 61 20 74 | 68 72 65 65 20 64 69 6d |tate a t|hree dim|
|000000b0| 65 6e 73 69 6f 6e 61 6c | 20 77 69 72 65 2d 66 72 |ensional| wire-fr|
|000000c0| 61 6d 65 20 6f 62 6a 65 | 63 74 0d 2a 29 0d 0d 46 |ame obje|ct.*)..F|
|000000d0| 52 4f 4d 20 54 68 72 65 | 65 44 65 65 20 20 20 49 |ROM Thre|eDee   I|
|000000e0| 4d 50 4f 52 54 20 50 6f | 69 6e 74 33 44 2c 20 53 |MPORT Po|int3D, S|
|000000f0| 65 74 52 6f 74 2c 20 53 | 65 74 53 63 61 6c 65 2c |etRot, S|etScale,|
|00000100| 20 0d 09 09 20 20 20 20 | 20 20 20 53 65 74 54 72 | ...    |   SetTr|
|00000110| 61 6e 73 6c 61 74 69 6f | 6e 2c 20 53 65 74 50 65 |anslatio|n, SetPe|
|00000120| 72 73 70 65 63 74 69 76 | 65 2c 20 0d 09 09 20 20 |rspectiv|e, ...  |
|00000130| 20 20 20 20 20 54 72 61 | 6e 73 66 6f 72 6d 53 52 |     Tra|nsformSR|
|00000140| 54 2c 20 50 72 6f 6a 65 | 63 74 3b 0d 46 52 4f 4d |T, Proje|ct;.FROM|
|00000150| 20 51 75 69 63 6b 44 72 | 61 77 54 79 70 65 73 20 | QuickDr|awTypes |
|00000160| 49 4d 50 4f 52 54 20 50 | 6f 69 6e 74 3b 0d 46 52 |IMPORT P|oint;.FR|
|00000170| 4f 4d 20 4d 69 6e 69 51 | 44 20 20 20 20 20 20 20 |OM MiniQ|D       |
|00000180| 20 20 49 4d 50 4f 52 54 | 20 4d 6f 76 65 54 6f 2c |  IMPORT| MoveTo,|
|00000190| 20 4c 69 6e 65 54 6f 2c | 20 4f 62 73 63 75 72 65 | LineTo,| Obscure|
|000001a0| 43 75 72 73 6f 72 3b 0d | 46 52 4f 4d 20 54 65 72 |Cursor;.|FROM Ter|
|000001b0| 6d 69 6e 61 6c 20 20 20 | 20 20 20 20 49 4d 50 4f |minal   |    IMPO|
|000001c0| 52 54 20 43 6c 65 61 72 | 53 63 72 65 65 6e 2c 20 |RT Clear|Screen, |
|000001d0| 42 75 73 79 52 65 61 64 | 3b 0d 46 52 4f 4d 20 49 |BusyRead|;.FROM I|
|000001e0| 6e 4f 75 74 20 20 20 20 | 20 20 20 20 20 20 49 4d |nOut    |      IM|
|000001f0| 50 4f 52 54 20 4f 70 65 | 6e 49 6e 70 75 74 2c 20 |PORT Ope|nInput, |
|00000200| 43 6c 6f 73 65 49 6e 70 | 75 74 2c 20 0d 09 09 09 |CloseInp|ut, ....|
|00000210| 20 20 20 52 65 61 64 49 | 6e 74 2c 20 57 72 69 74 |   ReadI|nt, Writ|
|00000220| 65 53 74 72 69 6e 67 2c | 20 44 6f 6e 65 3b 0d 46 |eString,| Done;.F|
|00000230| 52 4f 4d 20 52 65 61 6c | 49 6e 4f 75 74 20 20 20 |ROM Real|InOut   |
|00000240| 20 20 20 49 4d 50 4f 52 | 54 20 52 65 61 64 52 65 |   IMPOR|T ReadRe|
|00000250| 61 6c 3b 0d 0d 43 4f 4e | 53 54 0d 20 20 6d 61 78 |al;..CON|ST.  max|
|00000260| 56 65 72 74 69 63 65 73 | 20 3d 20 31 35 30 3b 0d |Vertices| = 150;.|
|00000270| 20 20 6d 61 78 45 64 67 | 65 73 20 20 20 20 3d 20 |  maxEdg|es    = |
|00000280| 33 30 30 3b 0d 0d 56 41 | 52 0d 20 20 76 65 72 74 |300;..VA|R.  vert|
|00000290| 69 63 65 73 3a 20 20 20 | 20 20 20 20 20 20 20 41 |ices:   |       A|
|000002a0| 52 52 41 59 5b 31 2e 2e | 6d 61 78 56 65 72 74 69 |RRAY[1..|maxVerti|
|000002b0| 63 65 73 5d 20 4f 46 20 | 50 6f 69 6e 74 33 44 3b |ces] OF |Point3D;|
|000002c0| 0d 20 20 70 72 6f 6a 65 | 63 74 65 64 56 65 72 74 |.  proje|ctedVert|
|000002d0| 69 63 65 73 3a 20 41 52 | 52 41 59 5b 31 2e 2e 6d |ices: AR|RAY[1..m|
|000002e0| 61 78 56 65 72 74 69 63 | 65 73 5d 20 4f 46 20 50 |axVertic|es] OF P|
|000002f0| 6f 69 6e 74 3b 0d 20 20 | 65 64 67 65 73 3a 20 41 |oint;.  |edges: A|
|00000300| 52 52 41 59 5b 31 2e 2e | 6d 61 78 45 64 67 65 73 |RRAY[1..|maxEdges|
|00000310| 5d 20 4f 46 20 49 4e 54 | 45 47 45 52 3b 0d 20 20 |] OF INT|EGER;.  |
|00000320| 6e 75 6d 56 65 72 74 69 | 63 65 73 2c 20 6e 75 6d |numVerti|ces, num|
|00000330| 45 64 67 65 73 3a 20 49 | 4e 54 45 47 45 52 3b 0d |Edges: I|NTEGER;.|
|00000340| 0d 50 52 4f 43 45 44 55 | 52 45 20 44 72 61 77 45 |.PROCEDU|RE DrawE|
|00000350| 64 67 65 28 20 66 72 6f | 6d 2c 20 74 6f 3a 20 49 |dge( fro|m, to: I|
|00000360| 4e 54 45 47 45 52 20 29 | 3b 0d 42 45 47 49 4e 0d |NTEGER )|;.BEGIN.|
|00000370| 20 20 57 49 54 48 20 70 | 72 6f 6a 65 63 74 65 64 |  WITH p|rojected|
|00000380| 56 65 72 74 69 63 65 73 | 5b 66 72 6f 6d 5d 20 44 |Vertices|[from] D|
|00000390| 4f 20 4d 6f 76 65 54 6f | 28 20 32 35 36 2b 68 2c |O MoveTo|( 256+h,|
|000003a0| 20 31 37 31 2b 76 20 29 | 3b 20 45 4e 44 3b 0d 20 | 171+v )|; END;. |
|000003b0| 20 57 49 54 48 20 70 72 | 6f 6a 65 63 74 65 64 56 | WITH pr|ojectedV|
|000003c0| 65 72 74 69 63 65 73 5b | 74 6f 5d 20 20 20 44 4f |ertices[|to]   DO|
|000003d0| 20 4c 69 6e 65 54 6f 28 | 20 32 35 36 2b 68 2c 20 | LineTo(| 256+h, |
|000003e0| 31 37 31 2b 76 20 29 3b | 20 45 4e 44 3b 0d 45 4e |171+v );| END;.EN|
|000003f0| 44 20 44 72 61 77 45 64 | 67 65 3b 0d 0d 50 52 4f |D DrawEd|ge;..PRO|
|00000400| 43 45 44 55 52 45 20 44 | 69 73 70 6c 61 79 4c 69 |CEDURE D|isplayLi|
|00000410| 73 74 3b 0d 56 41 52 0d | 20 20 65 64 67 65 49 6e |st;.VAR.|  edgeIn|
|00000420| 64 65 78 3a 20 49 4e 54 | 45 47 45 52 3b 0d 42 45 |dex: INT|EGER;.BE|
|00000430| 47 49 4e 0d 20 20 46 4f | 52 20 65 64 67 65 49 6e |GIN.  FO|R edgeIn|
|00000440| 64 65 78 3a 3d 31 20 54 | 4f 20 6e 75 6d 45 64 67 |dex:=1 T|O numEdg|
|00000450| 65 73 20 44 4f 0d 20 20 | 20 20 49 46 20 65 64 67 |es DO.  |  IF edg|
|00000460| 65 73 5b 65 64 67 65 49 | 6e 64 65 78 5d 20 3e 20 |es[edgeI|ndex] > |
|00000470| 30 20 0d 20 20 20 20 54 | 48 45 4e 20 44 72 61 77 |0 .    T|HEN Draw|
|00000480| 45 64 67 65 28 20 41 42 | 53 28 65 64 67 65 73 5b |Edge( AB|S(edges[|
|00000490| 65 64 67 65 49 6e 64 65 | 78 2d 31 5d 29 2c 20 65 |edgeInde|x-1]), e|
|000004a0| 64 67 65 73 5b 65 64 67 | 65 49 6e 64 65 78 5d 20 |dges[edg|eIndex] |
|000004b0| 29 3b 0d 20 20 20 20 45 | 4e 44 3b 20 28 2a 49 46 |);.    E|ND; (*IF|
|000004c0| 2a 29 0d 20 20 45 4e 44 | 3b 20 28 2a 46 4f 52 2a |*).  END|; (*FOR*|
|000004d0| 29 0d 45 4e 44 20 44 69 | 73 70 6c 61 79 4c 69 73 |).END Di|splayLis|
|000004e0| 74 3b 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 50 72 |t;..PROC|EDURE Pr|
|000004f0| 6f 6a 65 63 74 4c 69 73 | 74 3b 20 28 2a 20 72 6f |ojectLis|t; (* ro|
|00000500| 74 61 74 65 20 61 6e 64 | 20 70 72 6f 6a 65 63 74 |tate and| project|
|00000510| 20 61 6c 6c 20 76 65 72 | 74 69 63 65 73 20 2a 29 | all ver|tices *)|
|00000520| 0d 56 41 52 0d 20 20 76 | 65 72 74 49 6e 64 65 78 |.VAR.  v|ertIndex|
|00000530| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 20 20 72 6f 74 |: INTEGE|R;.  rot|
|00000540| 56 65 72 74 65 78 3a 20 | 50 6f 69 6e 74 33 44 3b |Vertex: |Point3D;|
|00000550| 0d 42 45 47 49 4e 0d 20 | 20 46 4f 52 20 76 65 72 |.BEGIN. | FOR ver|
|00000560| 74 49 6e 64 65 78 3a 3d | 31 20 54 4f 20 6e 75 6d |tIndex:=|1 TO num|
|00000570| 56 65 72 74 69 63 65 73 | 20 44 4f 0d 20 20 20 20 |Vertices| DO.    |
|00000580| 54 72 61 6e 73 66 6f 72 | 6d 53 52 54 28 20 76 65 |Transfor|mSRT( ve|
|00000590| 72 74 69 63 65 73 5b 76 | 65 72 74 49 6e 64 65 78 |rtices[v|ertIndex|
|000005a0| 5d 2c 20 72 6f 74 56 65 | 72 74 65 78 20 29 3b 0d |], rotVe|rtex );.|
|000005b0| 20 20 20 20 50 72 6f 6a | 65 63 74 28 20 72 6f 74 |    Proj|ect( rot|
|000005c0| 56 65 72 74 65 78 2c 20 | 70 72 6f 6a 65 63 74 65 |Vertex, |projecte|
|000005d0| 64 56 65 72 74 69 63 65 | 73 5b 76 65 72 74 49 6e |dVertice|s[vertIn|
|000005e0| 64 65 78 5d 20 29 3b 0d | 20 20 45 4e 44 3b 20 28 |dex] );.|  END; (|
|000005f0| 2a 46 4f 52 2a 29 0d 45 | 4e 44 20 50 72 6f 6a 65 |*FOR*).E|ND Proje|
|00000600| 63 74 4c 69 73 74 3b 0d | 20 20 0d 50 52 4f 43 45 |ctList;.|  .PROCE|
|00000610| 44 55 52 45 20 52 65 61 | 64 4c 69 73 74 3b 0d 56 |DURE Rea|dList;.V|
|00000620| 41 52 0d 20 20 69 6e 64 | 65 78 2c 20 65 64 67 65 |AR.  ind|ex, edge|
|00000630| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 42 45 47 49 4e |: INTEGE|R;.BEGIN|
|00000640| 0d 20 20 43 6c 65 61 72 | 53 63 72 65 65 6e 3b 0d |.  Clear|Screen;.|
|00000650| 20 20 57 72 69 74 65 53 | 74 72 69 6e 67 28 20 22 |  WriteS|tring( "|
|00000660| 50 6c 65 61 73 65 20 65 | 6e 74 65 72 20 74 68 65 |Please e|nter the|
|00000670| 20 6e 61 6d 65 20 6f 66 | 20 61 20 33 2d 44 20 64 | name of| a 3-D d|
|00000680| 61 74 61 20 66 69 6c 65 | 3a 22 20 29 3b 0d 20 20 |ata file|:" );.  |
|00000690| 4f 70 65 6e 49 6e 70 75 | 74 28 20 22 33 44 22 20 |OpenInpu|t( "3D" |
|000006a0| 29 3b 0d 20 20 52 65 61 | 64 49 6e 74 28 20 6e 75 |);.  Rea|dInt( nu|
|000006b0| 6d 56 65 72 74 69 63 65 | 73 20 29 3b 0d 20 20 46 |mVertice|s );.  F|
|000006c0| 4f 52 20 69 6e 64 65 78 | 3a 3d 31 20 54 4f 20 6e |OR index|:=1 TO n|
|000006d0| 75 6d 56 65 72 74 69 63 | 65 73 20 44 4f 0d 20 20 |umVertic|es DO.  |
|000006e0| 20 20 57 49 54 48 20 76 | 65 72 74 69 63 65 73 5b |  WITH v|ertices[|
|000006f0| 69 6e 64 65 78 5d 20 44 | 4f 0d 20 20 20 20 20 20 |index] D|O.      |
|00000700| 52 65 61 64 52 65 61 6c | 28 20 58 20 29 3b 20 52 |ReadReal|( X ); R|
|00000710| 65 61 64 52 65 61 6c 28 | 20 59 20 29 3b 20 52 65 |eadReal(| Y ); Re|
|00000720| 61 64 52 65 61 6c 28 20 | 5a 20 29 3b 0d 20 20 20 |adReal( |Z );.   |
|00000730| 20 45 4e 44 3b 20 28 2a | 57 49 54 48 2a 29 0d 20 | END; (*|WITH*). |
|00000740| 20 45 4e 44 3b 20 28 2a | 46 4f 52 2a 29 0d 20 20 | END; (*|FOR*).  |
|00000750| 6e 75 6d 45 64 67 65 73 | 3a 3d 30 3b 0d 20 20 4c |numEdges|:=0;.  L|
|00000760| 4f 4f 50 0d 20 20 20 20 | 52 65 61 64 49 6e 74 28 |OOP.    |ReadInt(|
|00000770| 20 65 64 67 65 20 29 3b | 0d 20 20 20 20 49 46 20 | edge );|.    IF |
|00000780| 4e 4f 54 20 44 6f 6e 65 | 20 54 48 45 4e 20 45 58 |NOT Done| THEN EX|
|00000790| 49 54 3b 20 45 4e 44 3b | 0d 20 20 20 20 49 4e 43 |IT; END;|.    INC|
|000007a0| 28 20 6e 75 6d 45 64 67 | 65 73 20 29 3b 0d 20 20 |( numEdg|es );.  |
|000007b0| 20 20 65 64 67 65 73 5b | 6e 75 6d 45 64 67 65 73 |  edges[|numEdges|
|000007c0| 5d 3a 3d 65 64 67 65 3b | 0d 20 20 45 4e 44 3b 20 |]:=edge;|.  END; |
|000007d0| 28 2a 4c 4f 4f 50 2a 29 | 0d 20 20 43 6c 6f 73 65 |(*LOOP*)|.  Close|
|000007e0| 49 6e 70 75 74 3b 0d 45 | 4e 44 20 52 65 61 64 4c |Input;.E|ND ReadL|
|000007f0| 69 73 74 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |ist;..PR|OCEDURE |
|00000800| 4b 65 79 57 61 73 50 72 | 65 73 73 65 64 28 29 3a |KeyWasPr|essed():|
|00000810| 20 42 4f 4f 4c 45 41 4e | 3b 0d 56 41 52 0d 20 20 | BOOLEAN|;.VAR.  |
|00000820| 63 68 3a 20 43 48 41 52 | 3b 0d 42 45 47 49 4e 0d |ch: CHAR|;.BEGIN.|
|00000830| 20 20 42 75 73 79 52 65 | 61 64 28 20 63 68 20 29 |  BusyRe|ad( ch )|
|00000840| 3b 0d 20 20 52 45 54 55 | 52 4e 20 63 68 20 3c 3e |;.  RETU|RN ch <>|
|00000850| 20 30 43 3b 0d 45 4e 44 | 20 4b 65 79 57 61 73 50 | 0C;.END| KeyWasP|
|00000860| 72 65 73 73 65 64 3b 0d | 0d 56 41 52 0d 20 20 78 |ressed;.|.VAR.  x|
|00000870| 52 2c 20 79 52 2c 20 7a | 52 3a 20 52 45 41 4c 3b |R, yR, z|R: REAL;|
|00000880| 0d 0d 42 45 47 49 4e 0d | 20 20 52 65 61 64 4c 69 |..BEGIN.|  ReadLi|
|00000890| 73 74 3b 0d 20 20 53 65 | 74 54 72 61 6e 73 6c 61 |st;.  Se|tTransla|
|000008a0| 74 69 6f 6e 28 20 30 2e | 30 2c 20 30 2e 30 2c 20 |tion( 0.|0, 0.0, |
|000008b0| 30 2e 30 20 29 3b 0d 20 | 20 53 65 74 50 65 72 73 |0.0 );. | SetPers|
|000008c0| 70 65 63 74 69 76 65 28 | 20 32 32 30 2e 30 2c 20 |pective(| 220.0, |
|000008d0| 2d 31 38 30 2e 30 20 29 | 3b 0d 20 20 78 52 3a 3d |-180.0 )|;.  xR:=|
|000008e0| 30 2e 30 3b 20 79 52 3a | 3d 30 2e 30 3b 20 7a 52 |0.0; yR:|=0.0; zR|
|000008f0| 3a 3d 30 2e 30 3b 0d 20 | 20 4f 62 73 63 75 72 65 |:=0.0;. | Obscure|
|00000900| 43 75 72 73 6f 72 3b 0d | 20 20 52 45 50 45 41 54 |Cursor;.|  REPEAT|
|00000910| 0d 20 20 20 20 53 65 74 | 52 6f 74 28 20 78 52 2c |.    Set|Rot( xR,|
|00000920| 20 79 52 2c 20 7a 52 20 | 29 3b 0d 20 20 20 20 50 | yR, zR |);.    P|
|00000930| 72 6f 6a 65 63 74 4c 69 | 73 74 3b 0d 20 20 20 20 |rojectLi|st;.    |
|00000940| 43 6c 65 61 72 53 63 72 | 65 65 6e 3b 0d 20 20 20 |ClearScr|een;.   |
|00000950| 20 44 69 73 70 6c 61 79 | 4c 69 73 74 3b 0d 20 20 | Display|List;.  |
|00000960| 20 20 78 52 3a 3d 78 52 | 20 2b 20 38 2e 30 3b 20 |  xR:=xR| + 8.0; |
|00000970| 79 52 3a 3d 79 52 20 2b | 20 31 30 2e 30 3b 20 7a |yR:=yR +| 10.0; z|
|00000980| 52 3a 3d 7a 52 20 2b 20 | 31 32 2e 30 3b 0d 20 20 |R:=zR + |12.0;.  |
|00000990| 55 4e 54 49 4c 20 4b 65 | 79 57 61 73 50 72 65 73 |UNTIL Ke|yWasPres|
|000009a0| 73 65 64 28 29 3b 0d 45 | 4e 44 20 44 72 61 77 33 |sed();.E|ND Draw3|
|000009b0| 44 2e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |D.......|........|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00000a10| 4f 52 20 49 4e 20 43 4f | 4e 53 54 20 54 59 50 45 |OR IN CO|NST TYPE|
|00000a20| 20 56 41 52 20 41 52 52 | 41 59 20 52 45 43 4f 52 | VAR ARR|AY RECOR|
|00000a30| 0a 44 72 61 77 33 44 2e | 4d 4f 44 00 02 00 00 00 |.Draw3D.|MOD.....|
|00000a40| 54 45 58 54 45 44 49 54 | 01 00 ff ff ff ff 00 00 |TEXTEDIT|........|
|00000a50| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff ff ff ff |..TEXTED|IT......|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 98 57 9a fd 00 00 | 09 32 00 00 01 ea 55 52 |...W....|.2....UR|
|00000a80| 45 20 4d 4f 44 55 4c 45 | 20 43 4f 44 45 20 42 45 |E MODULE| CODE BE|
|00000a90| 47 49 4e 20 43 41 53 45 | 20 4f 46 20 49 46 20 54 |GIN CASE| OF IF T|
|00000aa0| 48 45 4e 20 45 4c 53 49 | 46 20 45 4c 53 45 20 4c |HEN ELSI|F ELSE L|
|00000ab0| 4f 4f 50 20 45 58 49 54 | 20 52 45 50 45 41 54 20 |OOP EXIT| REPEAT |
|00000ac0| 55 4e 54 49 4c 20 57 48 | 49 4c 45 20 57 49 54 48 |UNTIL WH|ILE WITH|
|00000ad0| 20 44 4f 20 46 4f 52 20 | 42 59 20 52 45 54 55 52 | DO FOR |BY RETUR|
|00000ae0| 4e 20 45 4e 44 20 53 2e | 4d 2e 20 42 4f 4f 4c 45 |N END S.|M. BOOLE|
|00000af0| 41 4e 20 43 48 41 52 20 | 49 4e 54 45 47 45 52 20 |AN CHAR |INTEGER |
|00000b00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 64 00 00 |.......M|onacod..|
|00000b10| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000b20| 00 16 00 00 00 d4 00 00 | 4e 1c 00 98 00 00 00 1c |........|N.......|
|00000b30| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000b40| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 00 eb e8 |........|........|
|00000b50| 03 ec 00 47 00 00 00 0e | 00 00 ec 08 46 4f 42 4a |...G....|....FOBJ|
|00000b60| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|00000b70| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00000b80| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00000b90| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000ba0| 00 40 01 46 4f 42 4a ff | ff ff ff 00 40 01 aa 00 |.@.FOBJ.|....@...|
|00000bb0| 40 01 ac 00 40 01 ae 00 | 40 01 b0 00 40 01 b2 00 |@...@...|@...@...|
|00000bc0| 40 01 b4 00 40 01 b6 00 | 40 01 b8 00 40 10 18 00 |@...@...|@...@...|
|00000bd0| 40 01 bc 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |@...@...|@...@...|
|00000be0| 40 01 be 00 40 01 be 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+